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SCURCE STATEMENT 


STITLEC’MIP ISIS MIPSEND’) 
7ISISSMipsend: 

,do-r 

; 


THIS ROUTINE IS CALLED BY USERS IN ORDER TO SENT A MESSSAGE. 


INPUT: TOF OF STACK = THE CESTINATION SOCKET 
B/C = THE POINTER TC THE MESSAGE TO BE SENT 
D/E = THE LENGTH OF THE MESSAGE TO BE SENT 


OUTPUT: THE RESULTS OF THE ATTEMPT TO SEND ARE IN THE A REG 
UPON RETURN. THIS ROUTINE WILL ALWAYS RETURN SINCE 
IT HAS A TIMEOUT BUILTIN TO IT. 


A REG VALUES UPON RETURN ARE: 


SQH - DELIVERED TC DESTINATION 

82H - DELIVERED TO DESTINATION 

81H - UNKNOWN PORT ON DESTINATION 

85H - THE CESTINATION HAD INSUFFICIENT RESOURCES 
TO RECEIVE THE MESSAGE . 

89H - THE DESTINATION CEVICE DID NOT RESPCNOD 


we We We Ne Ne Nw Se Ne Se Ns Ne Se Ne Ne Ne Ne Ne Ne Ne 


,declare RQEntry1 literally ’ 


RequestSid byte, 
SreSrequest$Sid byte, 
DestSdevsid byte, 
Dest$portsid byte, 
Sresdevéid byte, 
BuffbaseSadr (2) word, 
Length word, 

TOSSid byte, 

OuwnerSdev byte, 


we “Ne Woe Ne Ws Ne we Ne Ne 


declare Out$RQ0 word external, 
vdeclare Wreply byte public, 


NAME MIPSEND 

PUBLIC MIPSEN-WREPLY 

EXTERN TRQGPT . 
EXTRN INTASK,-RCOGPTR-RLGPTR-OUTRQD,/INITT, BUMPT 


CSEG 
SINCLUDE(:F1:MIP.=QU) 
DEFINE RQD RESULTS 

GERROR EQU 1H 

GB8USY  EQU 4H 


FIRSTS =QU re 


CATCAR zatt 4nW ( 
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MIPTISTS MIPSEND 


LOC OBJ LINE SOURCE STATEMENT 
0020 = 55 GFULL EQU 20H 
0040 = 56 DISABT EGU 40H 
0080 = 57 FULLF EQU 80H 
= 58 
00C1 = 59 TERROR EQU 1H 
O00C4 = 60 TBUSY EQU 4H 
00C8 = 61 FIRSTT EQU 3H 
0010 = 62 TOISAB. EQU 10H 
0020 = 63 TEMPTY EQU 20H 
0040 = €4 BISABG EU 40H 
OO0&0 = 65 EMPTYF ERU 80H 
= €6 ; 
= 67 ; DEFINE MIP CMDS ANC RESPONSES 
= 68 + 
0070 = 69 CSENC EQU 70H 
0080 = 70 SENTCK EQU GOH - 
00&1 = 71 UNKNP cQu 81H 
0083 = 72 ACTIVP EQU 83H 
Q085 = 73 INSUFM EGU 85H 
0087 = 74 INACTP =EQU 87H 
0089 = 75 D£ADP eQU 89H 
= 76; 
= 77 7, DEFINE MIPWISTIS PARAMETERS 
= 78 + 
occ = 79 MYIDS EQU C 
0003 = 80 THIDEV EU 3 
81 
BD SL KKK KR IK RAR RIOR ORO OR ORO IO gO ok aK aK KK | 
&3 
&84 ,MIPtsens: 
85 ; procegure(Osockets,Msgptr-Length) byte public; 
a6 
Ef -, declare Dsocket word, 
&8 ;7 Msaptr word, 
E9 > Length word, 
90 7/* , 
$1; declare local variables 
92 7x/ | 
$3 7, declare Msg based Msgptr structure(MipSmsgq$ format), 
S4 7 RGEntry based Out$Sraqd structure (RaentrySformat), 
95 + GiveSstate byte, 
$6 > I bytes 
$7 MIPSEN?: 
COCO §&B 98 XCHG , PUT LENGTH IN H/L 
0001 220000 D $9 SHLO LENGTH 
0O0C E1 100 POP q 7 RET ADR 
O00C5 D1 101 POP C 7, DSOCKET IN D/E 
0006 —5 102 PUSH H 
103 7 sk 
104 ; First get the RGC for the Recuest queue. 
105 7 */ 
106 | - | 
QO0C7 C5 1C7 a5: PUSH 3 > SAVE MSGPTR 
0008 O05 108 PUSH E 7 SAVE DSOCKET 
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SCURCE STATEMENT 
; now loop until we can put the item into the RQ, find 
; device is dead- or timeout. 
, */ 
, «do forever, 
a9: 
r if TRQGPT and GERROR then return DEADP, 
CALL TRQGPT 
POP B ry get back dsocket 
POP D , get back msgptr 
RAR 
MVI A,DEADP 
RC 
? do, 
, 1x 
, fill in the entry first 
7 xf 
; RCEntry.Request$Sid = CEND-, 
MVI M,CSEND , PTR TO RQE IS IN H/L UPON 
; R@Entry.Dest3devSid = Cdevice,s . 
INX H 7 PAST SRC REQ ID SINCE NOT 
INX H 
MOV MB ry PUT DEST DEVICE IN. 
INX H . 
, RQGEntry.aDestSportsid = Dport,s 
MOV M,C 
INX H y PUT OEST PORT IN- 
7 RGEntry.~SreSdeveid = Thifdev-, 
MVI M,THICEV 7 SRC IS THES DEVICE 
INX Ho 
; REntry.B8ufsbaseadr (0) = Msgptr-e 
; 1x 
; base is always © 
; a 
MOV Mee 
INX 1 
MOV MD 
. TNX H 
; RGEntry.3ufSbaseadr (1) = Cer 
XRA A 
MOV Me A 
INX | 
MOV Mr A 
INX H 
, RG@Entry.alLength = Length 
XCHG 
LHLD LENGTH 
XCHG 
MOV ME 
INX a 
MOV M-D 
INX . Hn 
? RQEntry.lOSid = MYSids, 
MYT MsMYTIOS 
ENS.» H 


POFEntryv.Ownelav = 


ThiScleuv? 


out the 


RETURN 


USED 
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MIP-ISIS MIPSEND 
LOC OBJ LINE SOURCE STATEMENT 
0032 3603 165 MVI M,THIDEV 
1€6 + /* 
167 7 now release the entry and always signal 
168 >» x/ 
169 -7 GiveSstates = Rlgptr(.CutSrad)-, 
0034 cdOdg0c E. 170 CALL RLGPTR 
171 7 /x | 
172 >; have placed the request into the queue, now wait for ack/nak 
Ts. 2 x/ 
174 ; /x 
175 + SET PLACE. 10 WALT 
176 + xf 
177 + Wreply = CFFH 
0037 210206 D 178 LXI H,WREPLY 
OO3A 36FF 179 MVI M,OQFFH 
120 7 céll INITT, 
Q03c cooo0c E 1é1 CALL INITT 
1&2 ; do while (WSreply = OFFH),; 
183 > call Intask 
1&4 ; if 2umpt then return DEAOCP 
185 > ends 
OO3F cCDCdOOE E 186 411A: CALL; INTASK , SEE IF ANYTHING THERE 
0042 co0o0o0c in 1&7 CALL SUMPT 
0045 3689 188 MVI A,DEADP 
0047 C8 189 RZ 
0048 210206 D 190 pa H,WREPLY 
0048 7é 191 MOV Ar XM 
O04C FEFF 192 Cpr OQFFH 
OO4E CAS3FOO C 155 SZ 217A 
194 ; /* 
195 + return to celling tesk 
196 >» x / 
0051 CS 197 #86: RET 
198 7 return WSreply, 
159 f end, 
eCO0 + = end- 
201 send MIPfsend, 
eC2 
2C53 
204 send ISIS$Mipsend, 
205 
2C$ OSEG 
Oocc 0000 207 LENGTH: CW . 0 
00C2 00 208 WREPLY: DB 0 
. 209 
210 END 
PUBLIC SYMBOLS 
MIPSEN C Q000 WREPLY 53 OOC2 
EXTERNAL SYMBOLS . 
BUMPT E Cooc INITT E Q0CQ INTASK & QCCO OLTRRO E OO00 RLGPTR £ 0000 TREGPT E OCCO 
merzrn CWVMMOANE & 
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OO3F a5 
0985 CISAEG 
0004 CDISA8 
d000c LENGTA 
O08C TBUSY 
0081 WREPLY 
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ror rom 
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TERROR 


r>mp rep 
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»mm em 
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CSEND 
FULLF 
INSUFM 
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TROGPT 


mmPp pp 
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0C80 
0085 
0cd00 
OC00 


